home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / TmpFile.pm < prev   
Text File  |  2008-10-10  |  410b  |  33 lines
  1. #!/usr/bin/perl
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::TmpFile;
  6. use strict;
  7. use IO::File;
  8. use Fcntl;
  9.  
  10.  
  11. my $filename;
  12.  
  13. sub open {
  14.     my $fh; # will be autovivified
  15.     my $ext=shift || '';
  16.     do { $filename=POSIX::tmpnam().$ext }
  17.     until sysopen($fh, $filename, O_WRONLY|O_TRUNC|O_CREAT|O_EXCL, 0600);
  18.     return $fh;
  19. }
  20.  
  21.  
  22. sub filename {
  23.     return $filename;
  24. }
  25.  
  26.  
  27. sub cleanup {
  28.     unlink $filename;
  29. }
  30.  
  31.  
  32. 1
  33.